home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / try_qb / palette.bas (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1989-12-04  |  1.8 KB  |  26 lines
  1. InitPalette
  2. ChangePalette
  3. DrawEllipses
  4. PaletteArray
  5. ASPECT
  6. ColorVal
  7. Radius
  8.  640 x 200 resolution; 16 colors
  9.  Shift palette until key pressed
  10. InitPalette
  11. = InitPalette 
  12.  This procedure initializes the integer array used to
  13.  change the palette.
  14. ChangePalette
  15. = ChangePalette 
  16.  This procedure rotates the palette by one each time it=
  17.  is called.  For example, after the first call toi
  18.  ChangePalette, PaletteArray(1) = 2, PaletteArray(2) = 3,
  19.  . . . , PaletteArray(14) = 15, and PaletteArray(15) = 1
  20.  Shift the color displayed by each of the attributes from=
  21.  one to fifteen:
  22. DrawEllipses
  23. = DrawEllipses 
  24.  This procedure draws fifteen concentric ellipses, and
  25.  paints the interior of each with a different color.
  26.